ggplot2 & the grammar of graphics
June 02, 2014
Tony Fujs
PRACTICE TIME!!
DRAW A SCATTER PLOT OF THE FOLLOWING DATASET
PRACTICE TIME!!
DESCRIBE THE STEPS YOU TOOK TO DRAW THE PLOT
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
data = mini_walmart
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = state,y = stores)
data = mini_walmart
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = state,y = stores)
data = mini_walmart
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = state,y = stores,
color = stores)
data = mini_walmart
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = state,y = stores,
color = state)
data = mini_walmart
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = state,y = stores,
shape = state)
data = mini_walmart
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
#COMPLETE THE CODE TO PRODUCE THIS PLOT
aes(x = state,y = stores)
data = mini_walmart
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
#COMPLETE THE CODE TO PRODUCE THIS PLOT
aes(x = state,y = stores,
color = state,
shape = state)
data = mini_walmart
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
# WHAT ADDITIONAL AESTHETIC MAPPING IS NEEDED TO PRODUCE THIS PLOT?
aes(x = state,y = stores)
data = mini_walmart
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
# WHAT ADDITIONAL AESTHETIC MAPPING IS NEEDED TO PRODUCE THIS PLOT?
aes(x = state,y = stores,
size = stores)
data = mini_walmart
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = state,y = stores)
data = mini_walmart
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = state,y = stores)
data = mini_walmart
scale_y_continuous()
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = state,y = stores)
data = mini_walmart
scale_y_log10()
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = state,y = stores,
color = stores)
data = mini_walmart
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = state,y = stores,
color = stores)
data = mini_walmart
scale_color_continuous()
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = state,y = stores,
color = stores)
data = mini_walmart
scale_color_continuous(
low = 'light green',
high = 'dark green')
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = state,y = stores)
data = mini_walmart
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = state,y = stores)
data = mini_walmart
geom_point()
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = state,y = stores)
data = mini_walmart
geom_bar()
TAKE A GUESS: WHAT WILL THIS PLOT LOOK LIKE?
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = state,y = stores)
data = mini_walmart
geom_point()
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
# COMPLETE THE CODE TO PRODUCE THIS PLOT
aes(x = state,y = stores)
data = mini_walmart
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
# COMPLETE THE CODE TO PRODUCE THIS PLOT
aes(x = state,y = stores)
data = mini_walmart
geom_line()
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = state,y = stores)
data = mini_walmart
geom_text()
TAKE A GUESS: WHAT WILL THIS PLOT LOOK LIKE?
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = state,y = stores)
data = mini_walmart
geom_text()
Error: geom_text requires the following missing aesthetics: label
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = state,y = stores,
label = stores)
data = mini_walmart
geom_text()
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = year,y = stores)
data = mini_walmart
geom_point()
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = year,y = stores)
data = mini_walmart
geom_point()
position = 'identity'
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = year,y = stores)
data = mini_walmart
geom_bar()
position = identity
TAKE A GUESS: WHAT WILL THIS PLOT LOOK LIKE?
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = year,y = stores)
data = mini_walmart
geom_bar()
position = identity
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = year,y = stores,
fill = state)
data = mini_walmart
geom_bar()
position = identity
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = year,y = stores,
fill = state)
data = mini_walmart
geom_bar()
position = identity
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = year,y = stores,
fill = state)
data = mini_walmart
geom_bar()
position = identity
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = year,y = stores,
fill = state)
data = mini_walmart
geom_bar()
position = identity
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = year,y = stores,
fill = state)
data = mini_walmart
geom_bar()
position = identity
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = year,y = stores,
fill = state)
data = mini_walmart
geom_bar()
position = identity
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = year,y = stores,
fill = state)
data = mini_walmart
geom_bar()
position = dodge
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = year,y = stores,
fill = state)
data = mini_walmart
geom_bar()
position = stack
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = year,y = stores,
fill = state)
data = mini_walmart
geom_bar()
position = fill
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = year,y = stores,
fill = state)
data = mini_walmart
geom_bar()
position = fill
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = year,y = stores,
fill = state)
data = mini_walmart
geom_bar()
position = fill
coord_cartesian()
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = year,y = stores,
fill = state)
data = mini_walmart
geom_bar()
position = fill
coord_polar()
TAKE A GUESS: WHAT WILL THIS PLOT LOOK LIKE?
year state stores
1 2005 FL 174
2 2005 MI 76
3 2005 NJ 41
4 2005 NV 22
5 2005 VT 4
aes(x = year,y = stores,
fill = state)
data = mini_walmart
geom_bar()
position = fill
coord_polar()
PRACTICE TIME!!
ADD A REGRESSION LINE TO YOUR HAND DRAWN SCATTER PLOT
year state stores share
1 2005 FL 174 0.40
2 2005 MI 76 0.30
3 2005 NJ 41 0.15
4 2005 NV 22 0.10
5 2005 VT 4 0.05
aes(x = stores, y = share)
data = mini_walmart
geom_point()
year state stores share
1 2005 FL 174 0.40
2 2005 MI 76 0.30
3 2005 NJ 41 0.15
4 2005 NV 22 0.10
5 2005 VT 4 0.05
aes(x = stores, y = share)
data = mini_walmart
geom_point(stat = 'identity')
year state stores share
1 2005 FL 174 0.40
2 2005 MI 76 0.30
3 2005 NJ 41 0.15
4 2005 NV 22 0.10
5 2005 VT 4 0.05
aes(x = stores, y = share)
data = mini_walmart
geom_point(stat = 'smooth')
year state stores share
1 2005 FL 174 0.40
2 2005 MI 76 0.30
3 2005 NJ 41 0.15
4 2005 NV 22 0.10
5 2005 VT 4 0.05
aes(x = stores, y = share)
data = mini_walmart
geom_line(stat = 'smooth')
year state stores share
1 2005 FL 174 0.40
2 2005 MI 76 0.30
3 2005 NJ 41 0.15
4 2005 NV 22 0.10
5 2005 VT 4 0.05
aes(x = stores, y = share)
data = mini_walmart
geom_point(stat = 'identity')
year state stores share
1 2005 FL 174 0.40
2 2005 MI 76 0.30
3 2005 NJ 41 0.15
4 2005 NV 22 0.10
5 2005 VT 4 0.05
aes(x = stores, y = share)
data = mini_walmart
geom_point(stat = 'identity') +
geom_line(stat = 'smooth')